VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CInputData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Public WithEvents myText As TextBox
Attribute myText.VB_VarHelpID = -1

Private Sub myText_KeyPress(KeyAscii As Integer) 'Hex:1234567890.

    With myText
        Select Case KeyAscii
            Case Asc("0"), Asc("1"), Asc("2"), Asc("3"), Asc("4"), Asc("5"), Asc("6"), Asc("7"), Asc("8"), Asc("9"), Asc(".")
                If Len(.Text) > 10 And .SelLength = 0 Then KeyAscii = 0
            Case 8 'Backspace KeyPress
            Case Else
                KeyAscii = 0
        End Select
    End With
    
End Sub
